home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
G-Games
/
(c)ge.d64
/
nightmare park.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
9KB
|
430 lines
0 POKE56576,PEEK(56576)AND253
1 POKE53272,5:POKE648,128
2 POKE55,255:POKE56,127
3 POKE53280,0:POKE53281,0:PRINT"";
4 DIMGD(5,2)
5 DIMTR(61)
10 PRINT"[147]DO ANY DARE TO ENTER
20 [153]"NIGHTMARE PARK
30 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214]
40 [153]"NIGHTMARE PARK
45 IFZD=1ANDTI$<"000005"THEN20
46 IFZD=1THENRUN
50 GETA$:IFA$=""THEN52
52 IFA$="Y"ORA$="N"THEN57
55 GOTO20
57 IFA$="N"THENPRINT"[147]YOU ARE WISE":END
58 PRINT"[147]WHAT IS THE NAME OF THE FOOLISH ONE
59 [133]" -CMDCMDCMD";N$
60 [139]N$[178]"-"[167]58
61 [129]I[178]1[164]61
65 [135]TR(I)
70 TR(I)[178]TR(I)[170]32768
75 [130]
85 [153]"LOADUSE THE 'M','J','L' AND 'I' KEYS TO MOVE
86 PRINT"OH ";N$",PREPARE TO DIE!
87 [129]I[178]1[164]4000:[130]I
90 PO[178]32787
100 [153]"LOADSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
110 [153]"ONSPC( SPC("
113 [151]PO,170
120 [153]"ONSPC( SPC("
130 [153]"ONSPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC("
140 [153]"ONSPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC("
150 [153]"ONSPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC("
160 [153]"ONSPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC("
170 [153]"ONSPC( SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC( SPC("
180 [153]"ONSPC( SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC( SPC("
190 [153]"ONSPC( SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC( SPC("
200 [153]"ONSPC( SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC( SPC("
210 [153]"ONSPC( SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC( SPC("
220 [153]"ONSPC( SPC(SPC( SPC(SPC( SPC("
230 [153]"ONSPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC("
240 [153]"ONSPC( SPC(SPC( SPC("
250 [153]"ONSPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC("
260 [153]"ONSPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC("
270 [153]"ONSPC( SPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC( SPC( SPC("
280 [153]"ONSPC( SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC( SPC("
290 [153]"ONSPC( SPC( SPC(SPC( SPC(SPC( SPC( SPC("
300 [153]"ONSPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC("
310 [153]"ONSPC( SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC( SPC("
320 [153]"ONSPC( SPC("
329 [153]"ONSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
331 DG[178][187](1)
333 [151]33726,102:[151]33727,102
340 [129]I[178]1[164]59:[151]TR(I),96
345 [130]
347 [129]I[178]1[164]50
349 [151]PO,86
350 [151]PO,42
354 [130]
360 [129]I[178]1[164]10:[161]A$:[139]A$[178]""[167]361
361 [130]
362 [161]A$:[139]A$[178]""[167]362
363 QT[178]0
365 MO[178]0
370 [139]A$[178]"M"[167]MO[178]40
380 [139]A$[178]"J"[167]MO[178][171]1
390 [139]A$[178]"L"[167]MO[178]1
395 [139]A$[178]"I"[167]MO[178][171]40
400 [139]MO[178]0[167]360
405 [139][194](PO[170]MO)[178]96[167]QT[178]1:[137]414
410 [139][194](PO[170]MO)[178]32[167]414
412 [137]360
414 [151]PO,32
415 PO[178]PO[170]MO
418 [151]PO,42
419 [139]QT[178]1[167]1000
420 [139] PO[178]32768[170]940 [176] PO[178]32768[170]941 [167] 2000
430 [139]PO[178]TR(I)[167]1000
440 [137]360
1000 [129]I[178]1[164]100
1010 [151]PO,86
1020 [151]PO,170
1025 [139]I[178]80[167][153]"LOAD
1030 NEXT
1040 POKE53281,1:PRINT"[147]":POKE53281,0
1055 TP=0:TM=0
1060 T=INT(RND(1)*5)+1
1070 ON T GOSUB 3000,4000,5000,6000,7000,8000,9000,10000,11000
1080 PRINT"[147]SO YOU SURVIVED THIS TIME.
1090 [129]I[178]1[164]4000
1100 [153]"BAH! IT MEANS NOTHING!
1101 PO=PO+MO
1105 FORI=1TO3000:NEXT
1110 FORI=1TO100
1120 POKEPO,86
1140 NEXT
1150 GOTO100
2000 REM *** THE END ***
2010 PRINT"[147]
2020 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
2040 [153]"USE THE 'J' AND 'L' KEYS TO MOVE
2045 POKEPO,42
2050 FORI=1TO2000:NEXT
2055 PRINT"
2060 A[178]18
2070 [129]I[178]1[164]23
2072 [139]A[179]2[167]A[178]3
2075 [139]A[177]34[167]A[178]33
2080 [129]J[178]1[164]A
2090 [153]"SPC(";
2100 [130]
2110 [153]" ";
2120 [129]J[178]1[164]39[171](A[170]4)
2130 [153]"SPC(";
2140 [130]
2141 [153]
2150 A[178]A[170][181]([187](1)[172]3)[171]1
2160 [130]
2165 PO[178]PO[171]920
2170 [129]I[178]1[164]5000
2180 P[178][194](197)
2185 MO[178]0
2190 [139]P[178]34[167]MO[178][171]1
2200 [139]P[178]42[167]MO[178]1
2205 [139]P[178]64[167]MO[178]0
2207 JJ[178][194](PO[170]MO[170]40)
2210 [139][194](PO[170]MO[170]40)[178]102[167]2400
2215 [139][194](PO[170]MO[170]40)[178]127[167]2700
2220 [151]PO,32
2230 PO[178]PO[170]MO
2240 [151]PO,42
2250 [129]J[178]1[164]A
2260 [153]"SPC(";
2270 [130]
2275 [139]I[178]4950[167][153]"SINSINSINSIN";:[137]2290
2280 [153]" ";
2290 [129]J[178]1[164]39[171](A[170]4)
2300 [153]"SPC(";
2310 [130]
2320 [153]
2330 A[178]A[170][181]([187](1)[172]3)[171]1
2335 [139]A[179]2[167]A[178]3
2337 [139]A[177]34[167]A[178]33
2340 [130]
2350 [128]
2400 [153]"LOAD
2500 PRINT"[147]HA HA HA-YOU THOUGHT YOU HAD ESCAPED"
2505 FORJJ=1TO10
2510 FORII=32768TO32807
2520 POKEII,PEEK(II)+128
2530 NEXTII
2540 FORII=32807TO32768STEP-1
2550 POKEII,PEEK(II)-128
2560 NEXTII
2570 NEXTJJ
2580 GOTO2999
2700 PRINT"[147]I ";
2710 FORI=1TO1000:NEXT
2720 PRINT"HAVE ";
2730 FORI=1TO1000:NEXT
2740 PRINT"FAILED.
2750 [129]I[178]1[164]2000:[130]
2760 [153]"YOU ARE ONE OF THE FEW TO SURVIVE.
2770 FORI=1TO2500:NEXT
2775 TI$="000000"
2780 ZD=1:PRINT"[147]":GOTO20
2999 RUN
3000 REM *** MINEFIELD ***
3010 PRINT"[147]YOU HAVE JUST ENTERED A MINEFIELD.
3020 [153]"STEPPING ON A MINE MEANS INSTANT
3030 PRINT"DEATH.USE 'M','J','L' AND 'I' TO
3040 [153]"MOVE TO THE 'F'.
3045 FORI=1TO5000:NEXT
3050 PRINT"STEP CAREFULLY!
3060 [129]I[178]1[164]3000:[130]
3065 [153]"LOAD
3070 FORI=1TO25
3080 M=INT(RND(1)*1000)+32768
3090 POKEM,96
3100 NEXT
3110 FORI=32768TO32807
3120 POKEI,86
3130 POKEI+960,86
3140 NEXT
3150 FORI=32807TO33727STEP40
3160 POKEI,86
3170 POKEI+1,86
3180 NEXT
3190 POKE33598,6
3200 TP=32978
3210 POKETP,42
3220 GETA$:IFA$=""THEN3220
3225 TM=0
3230 IFA$="M"THENTM=40
3240 IFA$="J"THENTM=-1
3250 IFA$="L"THENTM=1
3260 IFA$="I"THENTM=-40
3270 IFTM=0THEN3220
3280 O=PEEK(TP+TM)
3290 IFO=86THEN3220
3300 IFO=6THENRETURN
3310 IFO=96THEN3340
3320 POKETP,32
3322 TP=TP+TM
3325 POKETP,32
3330 GOTO3210
3340 FORI=1TO100
3360 POKETP,42
3370 POKETP,160
3380 POKETP,90
3390 NEXT
3400 PRINT"[147]HA HA HA ";
3410 FORI=1TO2000:NEXTI
3420 PRINT"I GOT ANOTHER ONE!
3430 [129]I[178]1[164]2000:[130]I
3440 [153]"";N$;" WILL BE IN LITTLE BITS
3450 FORI=1TO4000:NEXTI
3460 PRINT:PRINT"FOR EVER!
3470 [129]I[178]1[164]4000:[130]I
3480 [138]
3999 [143] *** LASAR BEAMS ***
4000 [153]"LOADYOU SEE THOSE POLES OVER THERE?
4010 FORI=1TO1000:NEXT
4020 PRINT"YOU KNOW WHAT THEY ARE?
4030 [129]I[178]1[164]1000:[130]
4040 [153]"LASERS
4050 FORI=1TO1000:NEXT
4060 PRINT"USING THE 'J' AND 'L' KEYS,YOU HAVE
4070 [153]"5 SECONDS TO POSITION YOURSELF.
4075 FORI=1TO4000:NEXT
4077 PRINT"[147]
4080 TP[178]33747
4090 [151]32814,87
4100 [151]32819,87
4110 [151]32824,87
4120 [151]32827,95
4130 [151]32828,105
4140 [151]32831,87
4150 [151]32836,87
4160 [151]32841,87
4170 TI$[178]"000000"
4175 TM[178]0
4180 [161]A$:[139]A$[178]""[167]4200
4200 [139]A$[178]"J"[167]TM[178][171]1
4210 [139]A$[178]"L"[167]TM[178]1
4220 [139]TP[170]TM[177]33767[176]TP[170]TM[179]33728[167]TM[178]0
4240 [151]TP,32
4250 TP[178]TP[170]TM
4260 [151]TP,42
4270 [139]TI$[179]"000006"[167]4180
4280 [129]I[178]0[164]10[169]5
4290 [129]J[178]I[170]32855[164]33767[169]41
4300 [151]J,77
4310 [130]
4320 [130]
4322 [129]I[178]0[164]10[169]5
4324 [129]J[178]I[170]32870[164]33756[169]39
4326 [139][194](J)[178]28[167][151]J,86:[137]4328
4327 [151]J,78
4328 [130]J
4329 [130]I
4330 [129]I[178]32867[164]33747[169]40
4340 [151]I,103
4345 [151]I[170]1,101
4350 [130]
4355 [129]I[178]1[164]1500:[130]
4360 [139][194](TP)[178]42[167][142]
4370 [153]"LOADDO YOU KNOW HOW PAINFULL A
4380 PRINT"LASAR BEAM DEATH IS ?"
4390 FORI=1TO2000:NEXT
4400 PRINT"OH YES ! YOU'VE JUST HAD ONE !
4410 [129]I[178]1[164]1500:[130]
4420 [138]
5000 [143] *** GUARD DOGS ***
5001 PP[178]1
5010 [153]"LOADA PACK OF FIVE GUARD DOGS ((null)) HAS
5020 PRINT"BEEN SET ON YOU.YOU MUST REACH
5030 [153]"THE 'F', BEFORE THEY REACH YOU!
5040 FORI=1TO3000:NEXTI
5050 PRINT"SOME CHANCE!
5060 [129]I[178]1[164]1500:[130]
5070 [153]"USE THE 'M','J','L' AND 'I' KEYS TO MOVE
5080 FORI=1TO2000:NEXT
5090 PRINT"[147]
5100 [129]I[178]32768[164]32807
5110 [151]I,102
5120 [151]I[170]960,102
5130 [130]
5140 [129]I[178]32807[164]33727[169]40
5150 [151]I,102
5160 [151]I[170]1,102
5170 [130]
5173 [151]33598,6
5175 TP[178]32978
5176 TM[178]0
5180 [129]I[178]1[164]5
5190 GD(I,1)[178][181]([187](1)[172]40)[170]1
5195 GD(I,2)[178][181]([187](1)[172]24)[170]1
5200 [139][194](GD(I,1)[170](GD(I,2)[172]40)[170]32768)[179][177]32[167]5190
5210 [151]GD(I,1)[170](GD(I,2)[172]40)[170]32768,94
5220 [130]
5225 [129]I[178]1[164]500:[130]
5230 [161]A$:[139]A$[178]""[167]5240
5240 [139]A$[178]"M"[167]TM[178]40
5250 [139]A$[178]"J"[167]TM[178][171]1
5260 [139]A$[178]"L"[167]TM[178]1
5270 [139]A$[178]"I"[167]TM[178][171]40
5280 [139][194](TP[170]TM)[178]32[167]5320
5290 [139][194](TP[170]TM)[178]6[167][142]
5300 [139][194](TP[170]TM)[178]102[167]TM[178]0
5310 [139][194](TP[170]TM)[178]94[167]3340
5320 [151]TP,32
5330 TP[178]TP[170]TM
5340 [151]TP,42
5345 [139]DD[179]0[167]DD[178]DD[172][171]1:[137]55230
5346 DD[178]DD[172][171]1
5350 IP[178]TP[171]32768
5360 DY[178][181](IP[173]40)
5370 DX[178]IP[171](DY[172]40)
5372 [139]PP[179]0[167]PP[178][171]PP:[137]5225
5375 PP[178][171]PP
5380 [129]I[178]1[164]5
5390 [139]D(X)[177]GD(I,1)[167]MX[178]1
5400 [139]DX[179]GD(I,1)[167]MX[178][171]1
5405 [139]DX[178]GD(I,1)[167]MX[178]0
5410 [139]DY[177]GD(I,2)[167]MY[178]1
5420 [139]DY[179]GD(I,2)[167]MY[178][171]1
5425 [139]DY[178]GD(I,2)[167]MY[178]0
5430 AD[178][194](GD(I,1)[170]MX[170](GD(I,2)[170]MY)[172]40[170]32768)
5440 [139]AD[178]32[167]5470
5450 [139]AD[178]42[167]3340
5460 [139]AD[178]6[167]5510
5465 [139]AD[178]102[167]5510
5467 [139]AD[178]94[167]5510
5470 [151]GD(I,1)[170]GD(I,2)[172]40[170]32768,32
5480 GD(I,1)[178]GD(I,1)[170]MX
5490 GD(I,2)[178]GD(I,2)[170]MY
5500 [151]GD(I,1)[170]GD(I,2)[172]40[170]32768,94
5510 [130]
5520 [137]5230
5999 [143] *** RHINOS ***
6000 [153]"LOADTHERE IS A HERD OF RHINOS (@)
6001 ER=0
6010 PRINT"CHARGING YOU.YOU HAVE A CHOICE:
6020 [153]"KEEP OUT OF THE WAY,OR BE
6030 PRINT"TRAMPLED.
6035 [129]I[178]1[164]2000:[130]
6040 [153]"USE THE 'J' AND 'L' KEYS TO MOVE
6050 FORI=1TO2000:NEXT
6060 PRINT"[147]
6065 X[178]0:Y[178][171]100
6070 [129]I[178]1[164]30:[153]:[130]
6080 TP[178]32788
6090 [151]TP,42
6100 A[178][194](197)
6110 [139]A[178]64[167]TM[178]0
6120 [139]A[178]34[167]TM[178][171]1
6130 [139]A[178]42[167]TM[178]1
6135 [139][194](TP[170]TM)[178]0[167]6250
6140 [139]TP[170]TM[179]32769[176]TP[170]TM[177]32806[167]TM[178]0
6150 [151]TP,32
6160 TP[178]TP[170]TM
6170 [151]TP,42
6175 [139][194](TP[170]40)[178]0[167]6250
6180 [139]ER[178]1[167][153]:[137]6210
6181 [139]X[178]0[167]6195
6190 [153][166][181]([187](1)[172]19));"@
6191 PRINT"[145]";SPC(INT(RND(1)*39));"@
6193 X[178]0:[137]6210
6195 [153][166][181]([187](1)[172]12));"@
6196 PRINT"[145]";SPC(12);SPC(INT(RND(1)*12));"@
6197 [153]"ON";[166]24);[166][181]([187](1)[172]36));"@
6200 X=1
6210 Y=Y+1
6230 IFY=100THENER=1
6235 IFY=130THENRETURN
6240 GOTO6100
6250 FORI=1TO100
6260 POKETP,0
6270 POKETP,42
6272 POKETP,209
6280 NEXT
6290 PRINT"[147]THERES ONE ADVANTAGE TO BEING KILLED
6300 [153]"BY A RHINO.
6310 FORI=1TO1500:NEXT
6320 PRINT"YOU ONLY NEED A COFFIN 2 INCHES";
6330 PRINT" HIGH!
6340 [129]I[178]1[164]2000:[130]
6350 [138]
7000 [143] *** GORILLA
7010 [153]"LOADYOU HAVE JUST ENCOUNTERED A
7020 PRINT"MAD[146] GORILLA.AFTER GETTING ON YOUR
7025 [153]"KNEES AND PLEADING WITH HIM,HE AGREES
7030 PRINT"TO LET YOU GO,IF YOU CAN TELL HIM HIS
7040 [153]"NAME.IT WILL FLASH ON THE SCREEN,
7050 PRINT"VERY QUICKLY.
7060 [129]I[178]1[164]6000:[130]
7070 [153]"LOAD
7080 FORI=1TO500:NEXT
7090 I=INT(RND(1)*5)+1
7100 IFI=1THENMG$="RAYMOND"
7110 IFI=2THENMG$="RICHARD"
7120 IFI=3THENMG$="MATTHEW"
7130 IFI=4THENMG$="JAMES"
7140 IFI=5THENMG$="JACOB"
7150 PRINT"";MG$
7160 TI$="000000"
7170 IFTI<1THEN7170
7180 PRINT"[147]
7190 [133]"WHAT IS HIS NAME";IN$
7200 [153]"LOADGRR-RRGH-ARGG-GGHH-";
7210 [129]I[178]1[164]2000:[130]
7220 [139]IN$[179][177]MG$[167]7260
7230 [153]"RIGHT-GRRR..."
7240 [129]I[178]1[164]2000:[130]
7250 [142]
7260 [153]:[153]"GHHH-WRONG-HA-GRHH-HA-GRHH-HA!
7265 FORI=1TO2000:NEXT
7270 PRINT"MASH-MAUL-CHOMP
7280 [129]I[178]1[164]2000:[130]
7290 [138]
55230 [129]LK[178]1[164]200
55240 [130]
55250 [137]5230
60000 [131]63,84,90,98,122,135,136,143,150,169,184,201,233,256,259,287,302,310
60010 [131]335,363,437,448,459,460,482,490,495,497,499,501,503,512,545,555,607
60020 [131]608,615,616,623,624,631,632,684,694,715,746,762,769,798,817,833,836
60030 [131]844,852,862,869,888,896,904,939,940